REM AmigaBASIC PAL-Patch auf 640 x 240
CLEAR ,50000&
soll=103500&
PRINT "Suchpfad + AmigaBasic eingeben:"
LINE INPUT "-> ";filename$
PRINT "Bitte warten..."
OPEN filename$ FOR INPUT AS #1 LEN=4096
IF LOF(1) <> soll THEN
CLOSE #1
PRINT "Diese Version ist ungeeignet!":END
END IF
OPEN "ram:pAmigaBasic" FOR OUTPUT AS #2 LEN=4096
' Original bis zum Patch uebertragen
PRINT #2, INPUT$(&H57ED,#1);
' neue Hoehe Output-Window patchen
PRINT #2,CHR$(240);
skip$ = INPUT$(1,#1)
PRINT #2, INPUT$(30,#1);
' neue Breite u. Hoehe List-Window  patchen
PRINT #2,CHR$(0);CHR$(230);CHR$(0);CHR$(224);
skip$ = INPUT$(4,#1)
' Original bis zum Ende uebertragen
PRINT #2, INPUT$(&H7FFF,#1);
PRINT #2, INPUT$(&H7FFF,#1);
PRINT #2, INPUT$(&H3C00,#1);
WHILE NOT EOF(1)
PRINT #2, INPUT$(1,#1);
WEND
' Check auf ordnungsgemaesse Uebertragung
IF LOF(2) <> soll THEN
PRINT "soll=103500 ist=";LOF(2)
PRINT"Patch misslungen!"
ELSE
PRINT "Patch gelungen!"
END IF
CLOSE #1,#2
END

